ScanDatum Function

public function ScanDatum(datumString) result(datumCode)

Uses

return datum numeric code given a string

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: datumString

Return Value integer


Source Code

FUNCTION ScanDatum &
!
(datumString) &
!
RESULT (datumCode)

USE StringManipulation, ONLY: &
!Imported routines:
StringToUpper


IMPLICIT NONE

!Arguments with intent in:
CHARACTER (LEN = *), INTENT (IN) :: datumString

!Local variables:
INTEGER :: datumCode

!----------------------------end of declaration--------------------------------

IF (StringToUpper (datumString) == 'ED50') THEN
  datumCode = ED50
ELSE IF (StringToUpper (datumString) == 'ROME40') THEN
  datumCode = ROME40
ELSE IF (StringToUpper (datumString) == 'WGS84') THEN
  datumCode = WGS84
ELSE IF (StringToUpper (datumString) == 'CH1903') THEN
  datumCode = CH1903
END IF

END FUNCTION ScanDatum